inherit CometExpeEmeric_LM_LP Logical_model

#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_LM_LP constructor {name descr args} {
 this inherited $name $descr
 
# Adding some physical presentations 
 this Add_PM_factories [Generate_factories_for_PM_type [list {CometExpeEmeric_PM_P_U_basic Ptf_ALL}\
                                                       ] $objName]

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometExpeEmeric_LM_LP [P_L_methodes_set_CometExpeEmeric] {} {$this(L_actives_PM)}
Methodes_get_LC CometExpeEmeric_LM_LP [P_L_methodes_get_CometExpeEmeric] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometExpeEmeric_COMET_RE {} {return [list {ReInit {}} {set_L_base_pour_tirage {L}} {Valider_et_passer_au_suivant {}} {Interdir_et_passer_au_suivant {}}]}
Generate_LM_setters CometExpeEmeric_LM_LP [P_L_methodes_set_CometExpeEmeric_COMET_RE]

#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________


